Disclaimer:

Data Source: NY Times

Ohio Totals for Cases,Deaths by Date (Previous 30 Days)

STATESDAILY <- dbGetQuery(db, " SELECT * FROM STATESDAILY;") 

COUNTYDAILY <- dbGetQuery(db, "SELECT * FROM COUNTYDAILY;")
gg1 <- STATESDAILY %>% filter(date >= Sys.Date() -30) %>% ggplot() + 
  geom_col(aes(x=date,y=new_cases,fill=new_cases)) +
      labs(title="Ohio Cases by Date") +
     theme(axis.text.x = element_text(angle = 45)) 
#
#  geom_rect(data=STATESDAILY,aes(xmin=max(date) -10,xmax=max(date) -15,ymin=min(new_cases),ymax=max(new_cases)), alpha= 0.01,fill="grey")

## Warning: Removed 49 rows containing missing values (position_stack).

Ohio Accumulated Totals for Cases,Deaths by Date and County